object FormMain: TFormMain
  Left = 389
  Top = 203
  Width = 581
  Height = 430
  Caption = 'FormMain'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object EditPort: TAYEdit
    Left = 72
    Top = 16
    Width = 121
    Height = 22
    EditLabel.Width = 32
    EditLabel.Height = 16
    EditLabel.Caption = #31471#21475
    EditLabel.LabelPosition = lpLeft
    EditLabel.LabelSpacing = 3
    EditLabel.LabelVisible = True
    SelectedColor = clWindow
    UnSelectedColor = clWindow
    TabOrder = 0
    Text = '80'
  end
  object ButtonStart: TButton
    Left = 216
    Top = 16
    Width = 75
    Height = 25
    Caption = #21551#21160
    TabOrder = 1
    OnClick = ButtonStartClick
  end
  object ButtonTest: TButton
    Left = 216
    Top = 48
    Width = 75
    Height = 25
    Caption = #27979#35797
    TabOrder = 2
    OnClick = ButtonTestClick
  end
  object CheckBoxLog: TCheckBox
    Left = 72
    Top = 48
    Width = 97
    Height = 17
    Caption = #35760#24405#26085#24535
    TabOrder = 3
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 96
    Width = 573
    Height = 307
    ActivePage = TabSheet1
    Align = alBottom
    TabOrder = 4
    object TabSheet1: TTabSheet
      Caption = #26085#24535
      object MemoLog: TMemo
        Left = 0
        Top = 0
        Width = 565
        Height = 276
        Align = alClient
        Lines.Strings = (
          'MemoLog')
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20837#21442
      ImageIndex = 1
      object MemoIn: TMemo
        Left = 0
        Top = 0
        Width = 565
        Height = 276
        Align = alClient
        TabOrder = 0
      end
    end
  end
  object IdHTTPServer1: TIdHTTPServer
    Bindings = <>
    CommandHandlers = <>
    Greeting.NumericCode = 0
    ListenQueue = 20
    MaxConnectionReply.NumericCode = 0
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    OnCommandGet = IdHTTPServer1CommandGet
    Left = 304
    Top = 64
  end
end
